home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #274 (1993)(Rhein-Sieg-Soft).zip / Franz PD Disk #274 (1993)(Rhein-Sieg-Soft).adf / viewer / INSTALL-Viewer < prev    next >
Text File  |  1993-10-14  |  4KB  |  159 lines
  1. ; Viewer Installation V1.0
  2. ; 
  3.  
  4. (complete 0)
  5.  
  6. (working "\n\nSie haben den Auto-Modus gewählt!\n"
  7.          "Von nun an läuft alles automatisch ab!\n\n"
  8.          "Lehnen Sie sich zurück und warten Sie ab!")
  9.  
  10.  
  11. ; ------- Viewer KOPIEREN
  12. (set @default-source
  13.    (askdir
  14.       (prompt "Bitte wählen Sie das Verzeichnis oder die Diskette mit"
  15.                " dem Programm Viewer aus!")
  16.       (help "Das Verzeichnis oder die Diskette enthält das Programm Viewer "
  17.             "die Dokumentation, und auch das Installation-Programm\n\n"    
  18.              @askdir-help)
  19.       (default "")
  20.    )
  21. )
  22.  
  23. (set @default-dest                        ; Verzeichnis aussuchen 
  24.    (askdir
  25.       (prompt "In welches Verzeichnis soll Viewer kopiert werden ? ")
  26.       (help "Wählen Sie zuerst eine Partition Ihrer Festplatte, ein Laufwerk"
  27.             " oder ein Verzeichnis aus, auf das Sie gerne Viewer installieren"
  28.             " würden. Dann drücken Sie auf PROCEED und das Programm beginnt mit "
  29.             "der Arbeit.\n\n" )
  30.             @askdir-help
  31.       (default "SYS:Viewer")
  32.    )
  33. )
  34.  
  35. (if                                       ; Verzeichnis erzeugen
  36.    (= (exists @default-dest) 0)
  37.    (makedir @default-dest)
  38. )
  39.  
  40.  
  41. (copyfiles                                ; Viewer kopieren
  42.    (prompt "\nViewer wird in das Verzeichnis kopiert ...\n")
  43.    (help @copyfiles-help)
  44.    (source @default-source)
  45.    (dest @default-dest)
  46.    (pattern "Viewer#?")
  47.    (confirm)
  48. )
  49.  
  50.  
  51. (set @SourceDocsDir (tackon @default-source "Docs"))
  52. (set @SourceDocsDir
  53.    (askdir
  54.       (prompt "Bitte wählen Sie das Verzeichnis aus, aus dem die Doc-Dateien"
  55.                " kopiert werden sollen aus!")
  56.       (help "Das Verzeichnis enthält die Dokumentationsdateien des Programmes"
  57.         " Viewer\n\n"
  58.              @askdir-help)
  59.       (default @SourceDocsDir)
  60.    )
  61. )
  62.  
  63. (set @DestDocsDir (tackon @default-dest "Docs"))
  64. (if                                       ; Verzeichnis erzeugen
  65.    (= (exists @DestDocsDir) 0)
  66.    (makedir @DestDocsDir)
  67. )
  68.  
  69. (set @DestDocsDir
  70.    (askdir
  71.       (prompt "Bitte wählen Sie das Verzeichnis aus, in das die Doc-Dateien"
  72.                " kopiert werden sollen aus!")
  73.       (help "Das Verzeichnis enthält dann die kopierten Doc-Dateien des Programmes"
  74.         " Viewer\n\n"
  75.              @askdir-help)
  76.       (default @DestDocsDir)
  77.    )
  78. )
  79.  
  80. (copyfiles                                ; Viewer Doc-Dateien kopieren
  81.    (prompt "\nViewer Docs-Dateien werden in das Verzeichnis kopiert ...\n")
  82.    (help @copyfiles-help)
  83.    (source @SourceDocsDir)
  84.    (dest @DestDocsDir)
  85.    (all)
  86.    (confirm)
  87. )
  88.  
  89. (if
  90.   (= (exists (tackon @DestDocsDir "Viewer.dok")) 0) 
  91.   (copyfiles
  92.      (prompt "\nDie Liesmich-Datei wird kopiert ...\n")
  93.      (help @copyfiles-help)
  94.      (source @default-source)
  95.      (dest  @default-dest)
  96.      (choices "Liesmich" "Liesmich.info")
  97.      (confirm)
  98.    )
  99. )
  100.  
  101. (set @SourceRegDir (tackon @default-source "Registration"))
  102. (set @SourceRegDir
  103.    (askdir
  104.       (prompt "Bitte wählen Sie das Verzeichnis aus, aus dem die Registrierungs-Dateien"
  105.                " kopiert werden sollen aus!")
  106.       (help "Das Verzeichnis enthält die Registrierungs-Dateien des Programmes"
  107.         " Viewer\n\n"
  108.              @askdir-help)
  109.       (default @SourceRegDir)
  110.    )
  111. )
  112.  
  113. (set @DestRegDir (tackon @default-dest "Registration"))
  114. (if                                       ; Verzeichnis erzeugen
  115.    (= (exists @DestRegDir) 0)
  116.    (makedir @DestRegDir)
  117. )
  118.  
  119. (set @DestRegDir
  120.    (askdir
  121.       (prompt "Bitte wählen Sie das Verzeichnis aus, in das die Registrierungs-Dateien"
  122.                " kopiert werden sollen aus!")
  123.       (help "Das Verzeichnis enthält dann die kopierten Registireungs-Dateien des Programmes"
  124.         " Viewer\n\n"
  125.              @askdir-help)
  126.       (default @DestRegDir)
  127.    )
  128. )
  129.  
  130. (copyfiles                                ; Viewer Registration kopieren
  131.    (prompt "\nViewer Registrierungs-Dateien werden in das Verzeichnis kopiert ...\n")
  132.    (help @copyfiles-help)
  133.    (source @SourceRegDir)
  134.    (dest @DestRegDir)
  135.    (all)  
  136.   (confirm)
  137. )
  138.  
  139. (copyfiles
  140.    (prompt "\nDas Installprogramm und Installscript werden kopiert\n")
  141.    (help @copyfiles-help)
  142.    (source @default-source)
  143.    (dest  @default-dest)
  144.    (pattern "In#?")
  145.    (confirm)
  146. )
  147.  
  148. (complete 100)
  149.  
  150. ; ------- FERTIG
  151.  
  152. (message (cat 
  153.    "\nInstallation von Viewer ist beendet.\n\n"
  154.    "Entfernen Sie nun die Diskette aus Ihrem Laufwerk, wenn Sie "
  155.    "das Programm von einer Diskette installiert haben und starten Sie "
  156.    "Viewer.\n\nViel Spaß !")
  157.  
  158. ) 
  159.